home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 008a / fglqbx10.zip / 09-21.BAS < prev    next >
BASIC Source File  |  1991-06-06  |  834b  |  51 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. Status = SETMEM(-1*(4096+16))
  6.  
  7. OldMode = FGgetmode
  8.  
  9. IF FGtestmode(3,2) THEN
  10.    FGsetmode 3
  11. ELSEIF FGtestmode(7,2) THEN
  12.    FGsetmode 7
  13. ELSE
  14.    PRINT "This program requires"
  15.    PRINT "an 80-column display."
  16.    STOP
  17. END IF
  18.  
  19. FGcursor 0
  20. FGsetattr 9, 7, 0
  21.  
  22. FOR Row = 0 TO 24
  23.    CharString$ = " This is row" + STR$(Row) + "  "
  24.    FGlocate Row, 0
  25.    FGtext CharString$, 16
  26.    FGtext CharString$, 16
  27.    FGtext CharString$, 16
  28.    FGtext CharString$, 16
  29.    FGtext CharString$, 16
  30. NEXT
  31. FGwaitkey
  32.  
  33. Status = FGallocate(1)
  34. FGsethpage 1
  35. FGsave 32, 47, 11, 13
  36. FGsetcolor 1
  37. FGrect 32, 47, 11, 13
  38. FGsetattr 15, 1, 0
  39. FGlocate 12, 33
  40. FGtext "Press any key.", 14
  41. FGwaitkey
  42.  
  43. FGrestore 32, 47, 11, 13
  44. FGwaitkey
  45.  
  46. Status = FGfreepage(1)
  47. FGsetmode OldMode
  48. FGreset
  49.  
  50. END
  51.